<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>475</cardCount>
<cardID>18462</cardID>
<listID>86954</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- Version 1.8.7on versionput line 1 of the script of this stackend versionon openStack---- This script will ensure that the config setup happens-- even if SOD is started by directly entering this stack--global soundOn, noGoif soundOn is empty thenlock screenpush this card-- Just going to this card sets it up via it's openCard handlerput true into noGogo card "Dead Config" of stack "Dead Utility"if soundOn is empty thensetDeadDefaultsend ifpop cardend ifhide messageend openStackon setDeadDefaultsglobal soundOnglobal soundStackglobal deadDirglobal defFileCreator--put false into soundOnput "Dead Utility" into soundStackput empty into deadDirput "MACA" into defFileCreatorend setDeadDefaultson searchpush this cardgo card "song search utility" of stack "Dead Utility"end searchon showsgo stack "Dead Shows"end showson dumpStackglobal defFileCreatorask "Dump songs to file:" with "HD80:dead:"if it is empty then exit dumpStackput it into fileNameopen file fileNamepush this cardgo card 1repeat for the number of cardswrite field "Title" & return to file fileNamego next cardend repeatclose file fileNamesetFileType fileName, "TEXT", defFileCreatorpop cardend dumpStack-- If you need to make a universal change to the year buttons, make it-- to 1965 and then use this script to propagate the changes to all-- the others...on fixButtonsput the script of bg button "c1965" into theScriptrepeat with year = 1966 to 1994put "c" & year into butNameput butName--set the script of bg button butName to theScript--set the autoHilite of bg button butName to trueend repeatend fixButtonson showBusyglobal bearNumadd 1 to bearNumif bearNum = 9 then put 1 into bearNumset cursor to "Bear" & bearNumend showBusy-- This handler manages help text for buttons and fields-- by taking the text from comments at the end of the scripts--on doHelpset the cursor to watchlock screenput "Help for " & the name of the target & "..." & return & return¬into field "help text"put the script of the target into theScript--repeat with i = 1 to the number of lines of theScript-- showBusyput line i of theScript into oneLineif oneLine is empty then next repeatif char 1 of oneLine is not "-" then exit repeatdelete char 1 to 2 of oneLineput oneLine & return after field "help text"end repeatshow field "help text"unlock screen with visual effect dissolve fastend doHelp</script>
